

**** Summary stats


* load dawes 
		use "$Replicationdirectory/_Work/TEMP/ROLL_daily", clear


		 reshape wide ROLL def, i(date) j(market) string
				 

				 
				 
				 
				
				label var ROLLamsterdam "Dawes (Amsterdam)"
				label var ROLLlondon "Dawes (London)"
				label var ROLLzurich "Dawes (Zurich)"
				label var  ROLLparis "Dawes (Paris)"
				
		 
					
					rename defaultlondon  default
					
					drop  defaultamsterdam defaultparis defaultzurich
					
					
* merge consol

		merge 1:1 date using "$Replicationdirectory/_Work/TEMP/ROLL_consol_daily_londononly"
				
				* drops Saturdays to keep data comparable
				drop if _merge!=3
				
				
* Create directory (extended Table in Appendix)
		capture mkdir "$Replicationdirectory/_Work/Output/TABS/TAB_2"
		capture mkdir "$Replicationdirectory/_Work/Output/Appendices/Tables/Table_A3"
				
				

** Stats


	foreach x in paris zurich amsterdam london {
	
			gen diff_senior_`x'=ROLL`x'-ROLLlondon
			gen diff_save_`x'=ROLL`x'-ROLL_consol_london
	}
	
 

		* Dawes 
			* Before segmentation
			
					* london
					sum ROLLlondon if default==0  
					sum diff_save_london  if default==0  
			 
			   
					* paris
					sum ROLLparis if default==0  
					sum diff_senior_paris if default==0  
					sum diff_save_paris  if default==0  

			 
			 
					* amsterdam
					sum ROLLamsterdam if default==0
					sum diff_senior_amsterdam if default==0 
					sum diff_save_amsterdam if default==0  

			  
			 
					* zurich
					sum ROLLzurich if default==0
					sum diff_senior_zurich if default==0
					sum diff_save_zurich if default==0  

				* Replication export 
				eststo clear 
				eststo: quietly estpost summarize   ROLLlondon ROLLparis ROLLamsterdam ROLLzurich  if default==0
 				esttab using "$Replicationdirectory/_Work/Output/Appendices/Tables/Table_A3/LEVEL_PRE.rtf", cells("mean(fmt(%5.3f))") label nodepvar noobs  replace   
				
				eststo clear 
				eststo: quietly estpost summarize   diff_senior_paris   diff_senior_amsterdam diff_senior_zurich  if default==0
 				esttab using "$Replicationdirectory/_Work/Output/Appendices/Tables/Table_A3/Diff_senior_PRE.rtf", cells("mean(fmt(%5.3f))") label nodepvar noobs  replace   
				

				eststo clear 
				eststo: quietly estpost summarize   diff_save_london diff_save_paris   diff_save_amsterdam  diff_save_zurich  if default==0
 				esttab using "$Replicationdirectory/_Work/Output/Appendices/Tables/Table_A3/Diff_save_PRE.rtf", cells("mean(fmt(%5.3f))") label nodepvar noobs   replace   
 					
					
					 
				
		 
			* After segmentation
				
				* london
				sum ROLLlondon if default==1
				sum diff_save_london  if default==1 
		 
		 
				* paris
				sum ROLLparis if default==1
				sum diff_senior_paris if default==1  
				sum diff_save_paris  if default==1 
		

		 
		 
				* amsterdam
				sum ROLLamsterdam if default==1
				sum diff_senior_amsterdam if default==1 
				sum diff_save_amsterdam if default==1  

			  				
		  
		 
				* zurich
				sum ROLLzurich if default==1
				sum diff_senior_zurich if default==1
				sum diff_save_zurich if default==1  	
				
				
				* Replication export 
				eststo clear 
				eststo: quietly estpost summarize   ROLLlondon ROLLparis ROLLamsterdam ROLLzurich  if default==1
				esttab using "$Replicationdirectory/_Work/Output/TABS/TAB_2/LEVEL.rtf", cells("mean(fmt(%5.3f))") label nodepvar   replace   
				esttab using "$Replicationdirectory/_Work/Output/Appendices/Tables/Table_A3/LEVEL_POST.rtf", cells("mean(fmt(%5.3f))") label nodepvar   noobs replace   
				
				eststo clear 
				eststo: quietly estpost summarize   diff_senior_paris   diff_senior_amsterdam diff_senior_zurich  if default==1
				esttab using "$Replicationdirectory/_Work/Output/TABS/TAB_2/Diff_senior.rtf", cells("mean(fmt(%5.3f))") label nodepvar   replace   
				esttab using "$Replicationdirectory/_Work/Output/Appendices/Tables/Table_A3/Diff_senior_POST.rtf", cells("mean(fmt(%5.3f))") label nodepvar noobs   replace   
				

				eststo clear 
				eststo: quietly estpost summarize   diff_save_london diff_save_paris   diff_save_amsterdam  diff_save_zurich  if default==1
				esttab using "$Replicationdirectory/_Work/Output/TABS/TAB_2/Diff_save.rtf", cells("mean(fmt(%5.3f))") label nodepvar   replace    
				esttab using "$Replicationdirectory/_Work/Output/Appendices/Tables/Table_A3/Diff_save_POST.rtf", cells("mean(fmt(%5.3f))") label nodepvar noobs  replace   
 
		* Consol London 
		
			* Before segmentation
	 
 			sum ROLL_consol_london if default==0
		
		
			* After segmentation
	 
 			sum ROLL_consol_london if default==1
			
	
	
